unit TWorkOrderLog;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TWorkOrderLogVO = class(TDataTransferObject)
  private
    Fid: string;
    FWorkNo: string;
    FStatus: string;
    FOwner:String;
    FChgTime:String;
    FRemark:String;
  published
    property PK_id: string index 0 read Fid write Fid;
    property work_no: string index 1 read FWorkNo write FWorkNo;
    property status: String index 2 read FStatus write FStatus;
    property owner: String index 3 read FOwner write FOwner;
    property chg_time: string index 4 read FChgTime write FChgTime;
    property remark: string index 5 read FRemark write FRemark;
  public
    constructor Create;
    procedure Reset();
  end;

implementation

constructor TWorkOrderLogVO.Create;
begin
  inherited Create;
  tbName := 'inf_work_order_log';
  SetLength(GridInfo, 5);
end;

procedure TWorkOrderLogVO.Reset();
begin
  Fid := '-999';
  FWorkNo:= '-999';
  FStatus:= '-999';
  FOwner:= '-999';
  FChgTime:= '-999';
  FRemark:= '-999';
end;


end.
